POINT Software Programming/PPROG1.ISO/pascal/swag/comm.swg/0005_Another Carrier Detect.pas

Pascal/Delphi Source File | 1993-05-28 | 361 b | 18 lines

{
Author: Sean Palmer

> Does anyone know how to detect when the modem connects?? Thanks.

Check For a carrier: (periodically, like 2-4 times per second)
}

Const
  pBase = $3F8;  {change For which port you're using}
  pMSR  = pBase + 6; {modem status register}

Function carrier : Boolean;
begin
  carrier := (port[pMSR] and $80) <> 0;
end;